home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
HOMES.PRG
< prev
next >
Wrap
Text File
|
1996-01-14
|
4KB
|
117 lines
SET EXCLUSIVE OFF
SET ESCAPE OFF
SET DELETED ON
SET CONFIRM OFF
SET INTENSITY OFF
SET PROCEDURE TO screen
SET PROCEDURE TO agent
SET FORMAT TO fscr NOCLEAR
offset = At(Chr(38)+Chr(38), OptData())
IF SubStr(OptData(), offset + 2, 1) = " "
offset = offset + 1
ENDIF
offset = offset + 3
homes = SubStr(OptData(), offset, 2) && get H#.DBF
areas = homes + "areas" && H#AREAS.DBF
subs = homes + "subs" && H#SUBS.DBF
ho = homes + "home" && H#HOME.NDX
su = homes + "subs" && H#HOME.NDX
ar = homes + "area" && H#AREA.NDX
pi = homes + "pic" && H#PIC.NDX
city = RTrim(SubStr(OptData(), offset+3)) && get city/cnty name
hu = uName()
SELECT a && a=H#.DBF
USE (homes) INDEX (ho),(pi)
DECLARE tarray[51]
tarray[1] = "EMPTY"
tg = 0
SELECT b && b=H#AREAS.DBF
USE (areas) INDEX (ar)
SELECT c && c=REALTOR.DBF
USE realtor INDEX realtor
SELECT d && d=HUSER.DBF
USE huser INDEX huser
SELECT e
USE (subs) INDEX (su)
DO cls WITH 0,0,23,79
DO BoxW WITH 5,7,16,67
SET COLOR TO B/W
@ 6,33 SAY "HomeBase"
@ 7,21 SAY "The Real Estate Database for TBBS"
SET COLOR TO N/W
@ 9,21 SAY "Copyright 1996, Darryl Kerkeslager"
@ 10,30 SAY "LocalNet BBS"
@ 12,12 SAY "If you're selling your home and it's not listed here -"
@ 13,12 SAY "ask your broker, Why Not?"
SET COLOR TO W+/W
@ 15,22 SAY "───── Any Key to Continue ─────"
key = Inkey(20)
DO cls WITH 5,7,16,67
DO BoxW WITH 7,7,16,71
@ 8,9 SAY "Homes advertised are available on an equal opportunity basis."
@ 9,9 SAY "This service is advertising, and is not associated with any"
@ 10,9 SAY "real estate broker, nor does this BBS serve as a broker or"
@ 11,9 SAY "assist in the buying or selling of real estate. This BBS, the"
@ 12,9 SAY "author, nor the Sysop are responsible for any errors in the"
@ 13,9 SAY "listings. All photographs are property of the listing agent"
@ 14,9 SAY "or agency, and they retain all applicable rights."
SET COLOR TO W+/W
@ 15,23 SAY "───── Any Key to Continue ─────"
key = Inkey(30)
SELECT f
USE c:\flagset\flagset INDEX c:\flagset\name
SEEK hu
IF real .AND. realv && If Broker or Sysop
own = realo
IF uPriv() = 255
DO cls WITH 2,0,20,79
DO BoxW WITH 6,15,9,42
@ 7,17 SAY "Select the Agency to use"
@ 8,17 SAY "in edit fuctions."
comp = " "
DO pcomp
SELECT f
ELSE
agnte = mix
comp = realco
ENDIF
USE
SELECT a
DO edit
RELEASE realco,realo,mix
ENDIF
DO cls WITH 0,0,23,79
SET COLOR TO R/R
@ 0,0 CLEAR TO 1,79
SET COLOR TO GR+/R
@ 0,3 SAY city
@ 0,Col()+1 SAY "Real Estate Areas"
SET COLOR TO W+/R
@ 0,73 SAY "AREA "
@ 1,73 SAY "SCREEN"
DO ta
**************************************************
* Main Program
DO parea WITH 1
QUIT